home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latexSmart.tcl < prev    next >
Encoding:
Text File  |  1998-05-14  |  3.6 KB  |  128 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexSmart.tcl (called from latex.tcl)
  5. #
  6. # Smart quotes, dots, subscripts, and superscripts
  7. #
  8. #############################################################################
  9. #
  10. # Original author unknown, then Tom Scavo and now:
  11. #
  12. # Maintainer:  Vince Darley <darley@fas.harvard.edu>
  13. #
  14. #############################################################################
  15. #############################################################################
  16.  
  17. proc latexSmart.tcl {} {}
  18.  
  19. #--------------------------------------------------------------------------
  20. # Smart quotes:
  21. #--------------------------------------------------------------------------
  22.  
  23. proc smartDQuote {} {
  24.     global TeXmodeVars
  25.     if { !$TeXmodeVars(smartQuotes) || [literalChar] } { typeText {"}; return }
  26.     if {[leftQ]} {
  27.     typeText {``}
  28.     } else {
  29.     typeText {''}
  30.     }
  31. }
  32.  
  33. proc smartQuote {} {
  34.     global TeXmodeVars
  35.     if { !$TeXmodeVars(smartQuotes) || [literalChar]  } { typeText {'}; return }
  36.     if {[leftQ]} {
  37.     typeText {`}
  38.     } else {
  39.     typeText {'}
  40.     }
  41. }
  42.  
  43. proc leftQ {} {
  44.     if {[getPos] == [minPos]} { return 1 };
  45.     return [regexp "\[\[ \t\r\n\(\{<\]" [lookAt [pos::math [getPos] - 1]]]
  46. }
  47.  
  48. #--------------------------------------------------------------------------
  49. # Smart dots:
  50. #--------------------------------------------------------------------------
  51.  
  52. proc smartDots {} {
  53.     global TeXmodeVars
  54.     if {[isSelection]} { deleteSelection }
  55.     if { !$TeXmodeVars(smartDots) || [literalChar] } { insertText {.}; return }
  56.     if {[lookAt [pos::math [set endPos [getPos]] - 1]] == "."} {
  57.     if {[lookAt [set begPos [pos::math $endPos - 2]]] == "."} {
  58.         replaceText $begPos $endPos "\\ldots"
  59.     } else {
  60.         insertText "."
  61.     }
  62.     } else {
  63.     insertText "."
  64.     }
  65. }
  66.  
  67. #--------------------------------------------------------------------------
  68. # Smart subscripts and superscripts:
  69. #--------------------------------------------------------------------------
  70.  
  71. proc smartSubscripts {} {
  72.     smartScripts {_}
  73. }
  74.  
  75. proc smartSuperscripts {} {
  76.     smartScripts {^}
  77. }
  78.  
  79. proc smartScripts {char} {
  80.     if {[isSelection]} { deleteSelection }
  81.     if {[literalChar]} {
  82.     insertText $char
  83.     return
  84.     }
  85.     # Filenames contain literal underscores:
  86.     set pat {\\(usepackage|input|include(only)?|documentclass|bibliography(style)?|LoadClass|RequirePackage|begin\{filecontents\})(\[[^][]*\])?\{}
  87.     if { [findPatJustBefore "$pat" "${pat}\[.:a-zA-Z0-9/^_-\]*\$"] != "" } {
  88.     insertText $char
  89.     return
  90.     }
  91.     if { $char == {_} } { subscript } { superscript }
  92. }
  93.  
  94. #--------------------------------------------------------------------------
  95. # Escapes and exceptions:
  96. #--------------------------------------------------------------------------
  97. lappend TeX::smartEscape {0 ''$ {"}} {0 ``$ {"}} {0 `$ {'}} {0 \\\\ldots$ {...}} \
  98.   {2 _\{\}\•$ {_}} {2 \\^\{\}\•$ {^}} {1 label\{eq:\}$ {nonumber}}
  99.  
  100. proc escapeSmartStuff {} {
  101.     if {![isSelection]} {
  102.     set pos [getPos]
  103.     set text [getText [lineStart $pos] $pos]
  104.     global TeX::smartEscape
  105.     foreach i [set TeX::smartEscape] {
  106.         set off [lindex $i 0]
  107.         set look [lindex $i 1]
  108.         if {$off == 0} {
  109.         if {[regexp $look $text got]} {
  110.             replaceText [pos::math $pos - [string length $got]] $pos [lindex $i 2]
  111.             return
  112.         }
  113.         } else {
  114.         if {[pos::compare [set end [pos::math $pos + $off]] <= [maxPos]]} {
  115.             if {[regexp $look [getText [lineStart $pos] $end] got]} {
  116.             set pos $end
  117.             replaceText [pos::math $pos - [string length $got]] $pos [lindex $i 2]
  118.             return
  119.             }
  120.         }
  121.         }
  122.         
  123.     }
  124.     }
  125.     backSpace
  126. }
  127.  
  128.